﻿<!-- #Include File="Include/Skin.asp" -->
<%
Dim Hits,l,Style,b,p,z,str,Cpath,q
Call Exec("","Update [Count] Set Hits=Hits+1 Where ID=1",0)
sql="Select * From [Count] Where ID=1"
Call Exec(rs,sql,2)
Hits=rs("Hits")
Cpath=rs("Cpath")
Style=rs("Style")
l=len(Hits)
If l>Style Then
	l=Style
End If
If l<Style And Style<>100 Then
	b=Style-l
End If
For p=1 To b
	str=str&"<img src='" & InstallDir & "Countpic/"&Cpath&"/0.gif' alt='"&Hits&"'>"
Next
For z=1 To l
	If z=1 Then
		q=left(Hits,z)
	Else
		q=left(Hits,z)-(left(Hits,((z-1)))*10)
	End If
	str=str&"<img src='" & InstallDir & "Countpic/"&Cpath&"/"&q&".gif' alt='"&Hits&"'>"
Next
Response.Write "document.write(" & chr(34) & str & chr(34) & ");"
rs.Close
set rs=nothing
If IsConn = False Then Call CloseConn()
%>